home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / MOVIES / CREDITSP.DIR / 00001_Script_1 next >
Text File  |  1995-11-15  |  1KB  |  55 lines
  1. on exitFrame
  2.   global gCreditRate, gSoundIndex, gVolume
  3.   
  4.   if not soundBusy(1) then
  5.     if gSoundIndex = 3 then
  6.       set gSoundIndex = 1
  7.     else
  8.       set gSoundIndex = gSoundIndex + 1
  9.     end if
  10.     
  11.     sound playfile 1, getAt(["SPAZIO.AIF", "CRISIS.AIF", "STLHEART.AIF"], gSoundIndex)
  12.     set the volume of sound 1 = gVolume
  13.     
  14.   end if
  15.   
  16.   --
  17.   --
  18.   -- Change music
  19.   --
  20.   if the machineType <> 256 and the optionDown then sound Stop 1
  21.   if the machineType  = 256 and the shiftDown and the controlDown then sound Stop 1
  22.   
  23.   --
  24.   --
  25.   -- Speed up credits
  26.   --
  27.   if the shiftDown then 
  28.     set gCreditRate = gCreditRate + 1
  29.   else 
  30.     if gCreditRate > 1 then set gCreditRate = gCreditRate - 1
  31.   end if
  32.   
  33.   --
  34.   --
  35.   -- Reverse direction
  36.   --
  37.   if the controlDown then 
  38.     set the locV of sprite 1 = (the locV of sprite 1) + gCreditRate
  39.     set the locV of sprite 2 = (the locV of sprite 2) + gCreditRate
  40.   else
  41.     set the locV of sprite 1 = (the locV of sprite 1) - gCreditRate
  42.     set the locV of sprite 2 = (the locV of sprite 2) - gCreditRate
  43.   end if
  44.   
  45.   if the bottom of sprite 1 < -10 then 
  46.     set the visibility of sprite 1 = 0
  47.     go to the frame + 1
  48.     
  49.     --fadeSoundChan(1)
  50.     --endCredits  
  51.   end if
  52.   
  53.   
  54.   go to the frame
  55. end